Software Explosion/Software Explosion (Fore-Matt Home Computing)(1996).iso/games/windows/ulogic11/_setup.1/UltraLogic.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1996-05-26 | 18KB | 648 lines

object MainForm: TMainForm
  Left = 187
  Top = 23
  HorzScrollBar.Tracking = True
  VertScrollBar.Tracking = True
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsSingle
  Caption = 'Ultra Logic'
  ClientHeight = 373
  ClientWidth = 288
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object imgBackGround: TImage
    Left = 0
    Top = 0
    Width = 288
    Height = 354
    Align = alClient
    Center = True
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object Hand: TImage
    Left = 5
    Top = 88
    Width = 38
    Height = 18
    ParentShowHint = False
    Picture.Data = {<image001.ico>}
    ShowHint = False
  end
  object Bevel3: TBevel
    Left = 1
    Top = 38
    Width = 226
    Height = 9
    Shape = bsBottomLine
  end
  object Bevel4: TBevel
    Left = 162
    Top = 2
    Width = 2
    Height = 40
    Shape = bsLeftLine
  end
  object SpeedButton1: TSpeedButton
    Left = 248
    Top = 6
    Width = 28
    Height = 27
    Hint = 'Help|'
    Glyph.Data = {
      50020000424D500200000000000076000000280000001E0000001B0000000100
      040000000000B001000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
      000000000000000007007F8888888888888888888888888807007F7777777777
      777777777777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007F7777777770077777777777777807007F7777777770
      077777777777777807007F77777777007777CCC77777777807007F7777077700
      7777CCC77777777807007F7777007007777777777777777807007F7777000007
      7777CC777777777807007F77770000000077CC777777777807007F7777000000
      0777CCC77777777807007F7777000000777777CC7777777807007F7777000007
      77CC777CC777777807007F77770000777CC7777CC777777807007F7777000777
      7CC7777CC777777807007F777700777777CC777CC777777807007F7777077777
      777CCCCC7777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007F7777777777777777777777777807007F7777777777
      777777777777777807007FFFFFFFFFFFFFFFFFFFFFFFFFFF0700777777777777
      77777777777777777700010000000200000000000000000000004D0000A02C00
      6C001C006C00CA050000AE05000094000000D605}
    ParentShowHint = False
    ShowHint = True
    Visible = False
    OnClick = SpeedButton1Click
  end
  object LeftBoard: TDrawGrid
    Left = 43
    Top = 83
    Width = 127
    Height = 263
    TabStop = False
    Color = clWhite
    Ctl3D = True
    DefaultColWidth = 30
    DefaultRowHeight = 25
    DefaultDrawing = False
    FixedColor = clWhite
    FixedCols = 4
    RowCount = 10
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    ParentCtl3D = False
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ScrollBars = ssNone
    ShowHint = False
    TabOrder = 0
    OnDragDrop = LeftBoardDragDrop
    OnDragOver = LeftBoardDragOver
    OnDrawCell = LeftBoardDrawCell
    OnMouseDown = LeftBoardMouseDown
    RowHeights = (
      25
      27
      25
      25
      25
      25
      25
      25
      25
      25)
  end
  object RightBoard: TDrawGrid
    Left = 188
    Top = 83
    Width = 92
    Height = 266
    HelpContext = 3001
    TabStop = False
    Color = clTeal
    DefaultColWidth = 21
    DefaultRowHeight = 25
    DefaultDrawing = False
    FixedColor = clTeal
    FixedCols = 4
    RowCount = 10
    FixedRows = 0
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ScrollBars = ssNone
    ShowHint = False
    TabOrder = 1
    OnDrawCell = RightBoardDrawCell
    RowHeights = (
      26
      25
      25
      25
      25
      25
      25
      25
      26
      25)
  end
  object MediaPlayer: TMediaPlayer
    Left = 9
    Top = 342
    Width = 85
    Height = 20
    VisibleButtons = [btPlay, btStop, btEject]
    Visible = False
    TabOrder = 2
    OnNotify = MediaPlayerNotify
  end
  object ColorsBarPanel: TPanel
    Left = 1
    Top = 49
    Width = 222
    Height = 30
    HelpContext = 3002
    BevelInner = bvRaised
    BevelOuter = bvNone
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ShowHint = False
    TabOrder = 3
    object RedShape: TShape
      Left = 3
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clRed
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object GreenShape: TShape
      Left = 194
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clGreen
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object BlackShape: TShape
      Left = 58
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clBlack
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object YellowShape: TShape
      Left = 85
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clYellow
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object BlueShape: TShape
      Left = 112
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clBlue
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object GrayShape: TShape
      Left = 139
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clGray
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object FuchsiaShape: TShape
      Left = 167
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clFuchsia
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
    object LimeShape: TShape
      Left = 30
      Top = 4
      Width = 24
      Height = 22
      Brush.Color = clLime
      Shape = stRoundRect
      OnMouseDown = AnyShapeMouseDown
    end
  end
  object Panel1: TPanel
    Left = 2
    Top = 6
    Width = 153
    Height = 31
    TabOrder = 4
    object sbtnCheck: TSpeedButton
      Left = 64
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Check!|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        59905555555555555777555555555555555555555555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbtnCheckClick
    end
    object sbtnNew: TSpeedButton
      Left = 4
      Top = 3
      Width = 25
      Height = 25
      Hint = 'New Game|'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = mmenuNewGameClick
    end
    object sbtnRegistrationForm: TSpeedButton
      Left = 97
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Registration Form|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF7733333033000000033333373377777773330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = mmenuRegistrationFormClick
    end
    object sbtnRegistrationCode: TSpeedButton
      Left = 124
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Registration Code|'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5000555555555555577755555555555550B0555555555555F7F7555555555550
        00B05555555555577757555555555550B3B05555555555F7F557555555555000
        3B0555555555577755755555555500B3B0555555555577555755555555550B3B
        055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
        555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
        55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
        555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
        55555575FFFF77555555555700007555555555577777755555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = mmenuRegistrationCodeClick
    end
    object Bevel1: TBevel
      Left = 92
      Top = 2
      Width = 3
      Height = 25
      Shape = bsLeftLine
    end
    object sbtnProperties: TSpeedButton
      Left = 34
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Game Properties|'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777778888877777700007777777000008887777700007777
        77ECCCCC088777770000777777EC6EEC088777770000777777EC08EC08877777
        0000777777EC006C088777770000777777ECCCCC088777770000777777ECCCCC
        088877770000777777ECCCCC08888777000077777CCCCCCCC088887700007777
        CCCCCCCCCC0888870000777CCCCCCCCCCCC08887000077ECCCCCCCCCCCCC0887
        000077ECCCC0877ECCCC0887000077ECCC088777ECCC0877000077ECCC088777
        ECCC07770000777ECC077777ECC0777700007777EE677777EE67777700007777
        77777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = mmenuPropertiesClick
    end
  end
  object Panel2: TPanel
    Left = 172
    Top = 2
    Width = 54
    Height = 39
    HelpContext = 3003
    BevelInner = bvRaised
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ShowHint = False
    TabOrder = 5
    object TimerDigit1: TDigit
      Left = 3
      Top = 3
      Width = 16
      Height = 32
      Color = clBlack
      ColorOff = clMaroon
      ColorOn = clYellow
      ValueBinary = 125
      ParentColor = False
      Thickness = 2
      Separation = 1
    end
    object TimerDigit2: TDigit
      Left = 19
      Top = 3
      Width = 16
      Height = 32
      Color = clBlack
      ColorOff = clMaroon
      ColorOn = clYellow
      ValueBinary = 125
      ParentColor = False
      Thickness = 2
      Separation = 1
    end
    object TimerDigit3: TDigit
      Left = 35
      Top = 3
      Width = 16
      Height = 32
      Color = clBlack
      ColorOff = clMaroon
      ColorOn = clYellow
      ValueBinary = 125
      ParentColor = False
      Thickness = 2
      Separation = 1
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 354
    Width = 288
    Height = 19
    Panels = <
      item
        Text = 'Row:'
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object MainMenu: TMainMenu
    Left = 101
    Top = 342
    object GameMenu: TMenuItem
      Caption = '&Game'
      RadioItem = True
      ShortCut = 0
      object mmenuNewGame: TMenuItem
        Caption = '&New'
        HelpContext = 201
        Hint = 'Start a new game with current settings'
        ShortCut = 113
        OnClick = mmenuNewGameClick
      end
      object mmenuGiveUp: TMenuItem
        Caption = '&Give Up!'
        GroupIndex = 3
        Hint = 'Abort the game and show the correct solution'
        ShortCut = 0
        OnClick = mmenuGiveUpClick
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 3
        ShortCut = 0
      end
      object mmenuProperties: TMenuItem
        Caption = 'P&roperties...'
        GroupIndex = 3
        Hint = 'Change various game options'
        ShortCut = 0
        OnClick = mmenuPropertiesClick
      end
      object N4: TMenuItem
        Caption = '-'
        GroupIndex = 3
        ShortCut = 0
      end
      object ExitMenu: TMenuItem
        Caption = 'E&xit'
        GroupIndex = 3
        HelpContext = 202
        Hint = 'Exit Ultra Logic'
        ShortCut = 0
        OnClick = ExitMenuClick
      end
    end
    object Level: TMenuItem
      Caption = '&Level'
      ShortCut = 0
      object BeginnerMenu: TMenuItem
        Caption = '&Beginner'
        Checked = True
        GroupIndex = 1
        Hint = 'The easiest level'
        RadioItem = True
        ShortCut = 0
        OnClick = BeginnerMenuClick
      end
      object IntermediateMenu: TMenuItem
        Caption = '&Intermediate'
        GroupIndex = 1
        Hint = 'Medium difficulty level'
        RadioItem = True
        ShortCut = 0
        OnClick = IntermediateMenuClick
      end
      object mmenuExpert: TMenuItem
        Caption = '&Expert!'
        GroupIndex = 1
        Hint = 'Hardest difficulty level'
        RadioItem = True
        ShortCut = 0
        OnClick = mmenuExpertClick
      end
      object CustomMenu: TMenuItem
        Caption = '&Custom...'
        GroupIndex = 1
        Hint = 'Chose any board size you want!'
        RadioItem = True
        ShortCut = 0
        OnClick = CustomMenuClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object HelpTopicsMenu: TMenuItem
        Caption = 'Help &Topics'
        HelpContext = 221
        Hint = 'Show help contents'
        ShortCut = 0
        OnClick = HelpTopicsMenuClick
      end
      object WhatsNewMenu: TMenuItem
        Caption = 'What'#39's &New?'
        Hint = 'Improvements and bug fixes since last version'
        ShortCut = 0
        OnClick = WhatsNewMenuClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmenuRegistrationForm: TMenuItem
        Caption = '&Registration Form...'
        Hint = 'Fill out Ultra Logic registration form'
        ShortCut = 0
        OnClick = mmenuRegistrationFormClick
      end
      object mmenuRegistrationCode: TMenuItem
        Caption = '&Enter Reg Number...'
        Hint = 'Enter registration number to register Ultra Logic'
        ShortCut = 0
        OnClick = mmenuRegistrationCodeClick
      end
      object mmenuHelpDivider2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmenuAbout: TMenuItem
        Caption = '&About...'
        Hint = 'Show credits and statistics information'
        ShortCut = 0
        OnClick = mmenuAboutClick
      end
    end
  end
  object SecondsTimer: TTimer
    OnTimer = SecondsTimerTimer
    Left = 172
    Top = 341
  end
  object Registration: TRegistration
    UserInterface.Title = 'Please enter registration information'
    UserInterface.LabelsFont.Color = clWindowText
    UserInterface.LabelsFont.Height = -11
    UserInterface.LabelsFont.Name = 'MS Sans Serif'
    UserInterface.LabelsFont.Style = [fsBold]
    UserInterface.Background = bkGrey
    UserInfo.UserName = '0'
    UserInfo.RegNumber = '0'
    UserInfo.NumberOfDigits = 5
    UserInfo.MagicNumber = 99999
    UserInfo.Correct = False
    OnSuccess = RegistrationSuccess
    OnFailure = RegistrationFailure
    Left = 137
    Top = 341
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 91
    Top = 190
    object pmenuRepeat: TMenuItem
      Caption = '&Repeat'
      Default = True
      ShortCut = 0
      OnClick = pmenuRepeatClick
    end
    object pmenuClear: TMenuItem
      Caption = '&Clear'
      ShortCut = 0
      OnClick = pmenuClearClick
    end
    object pmenuClearRow: TMenuItem
      Caption = 'Clear &Row'
      ShortCut = 0
      OnClick = pmenuClearRowClick
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object pmenuGiveUp: TMenuItem
      Caption = '&Give Up!'
      ShortCut = 0
      OnClick = pmenuGiveUpClick
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 207
    Top = 341
    object pmenuWhatsThis: TMenuItem
      Caption = '&What'#39's This?'
      ShortCut = 0
      OnClick = pmenuWhatsThisClick
    end
  end
  object VersionResource: TVersionResource
    FileName = 'F:\Ultra Logic 2010\UltraLogic.exe'
    Left = 246
    Top = 341
  end
end